home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Prog / D-G / Dorothy'sPascalApp.cpt / BetterMus2.Pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1988-04-20  |  1.4 KB  |  62 lines  |  [TEXT/TPAS]
  1. program MuscleRelaxed;
  2.     {U$-}
  3.     uses
  4.         MemTypes,QuickDraw,OSIntF,ToolIntf;
  5.    
  6.  var
  7.   ArcRect : rect;
  8.   OvalRect : rect;
  9.   NumbA : integer;
  10.   Count : integer;
  11.   myPort:GrafPort;
  12.   r:rect;
  13. begin
  14.  InitGraf(@thePort);
  15.  OpenPort(@myPort);
  16.  FillRect(myPort.portBits.Bounds,white);
  17.  
  18.  PenPat(black);
  19.  PenSize(4,5);
  20.  SetRect(r,2,2,508,338);
  21.  FrameRect(r);
  22.  
  23.  PenSize(1,1);
  24.  MoveTo(75, 119);{move cursor to these coordinates}
  25.  LineTo(360,119);{draw line from 70H to 390H}
  26.  MoveTo(75, 199);{move cursor to these coordinates V 200}
  27.  LineTo(360,199);{draw line from 70H to 390H and 200V}
  28.  
  29.  {--------------------------------}
  30.  
  31.  SetRect(ArcRect,305,119,405,200);
  32.  SetRect(OvalRect,270,120,370,199);
  33.  PaintOval(ArcRect);
  34.  PenPat(White);
  35.  PaintOval(OvalRect);
  36.  
  37.  for count := 1 to 2 do
  38.       begin
  39.           OffSetRect(ArcRect, -90,0);
  40.           OffSetRect(OvalRect, -90,0);
  41.           PenPat (Black);
  42.           PaintOval(ArcRect);
  43.           PenPat (White);
  44.           PaintOval(OvalRect);
  45.       end;
  46.       
  47.         PenPat(black); {Set Z lines}
  48.         PenSize(2,2);
  49.         SetRect(ArcRect,60,119,160,200);
  50.         FrameArc(ArcRect,0,180);
  51.             for count := 1 to 2 do
  52.                 begin
  53.                 OffSetRect(ArcRect, 95,0);
  54.                 FrameArc(ArcRect,0,180);
  55.                end;
  56.       
  57.  PenPat(Dkgray);
  58.  SetRect(OvalRect, 35,119,135,200);
  59.  PaintOval(OvalRect);
  60.  ReadLn {hit Return key to go back to Finder or MacPascal if you are using it}
  61.  
  62. end.